home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / wclass20.zip / ADA1.SCT < prev    next >
Text File  |  1995-01-16  |  3KB  |  81 lines

  1.  
  2. [with AGGREGATION_ONE_CLASS$s;]
  3. [with ASSOCIATION_ONE_CLASS$s;]
  4. [with AGGREGATION_MANY_CLASS$s;]
  5. [with ASSOCIATION_MANY_CLASS$s;]
  6.  
  7. package CLASS$s is
  8.   type CLASS is private;
  9.   procedure initialize ( The_$CLASS : in out CLASS ;
  10.             [ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] );
  11.   
  12.   [-- In Input Parameters: PASCAL_OPERATION_PARAMETERS 
  13.    -- Out Output Parameter Type: OPERATION_RETURN_TYPE
  14.    procedure OPERATION_NAME ADA_OPERATION_PARAMETERS ;
  15.   ]
  16.  
  17. [                       --Get accessor function for ATTRIBUTE_NAME
  18.   function get_$ATTRIBUTE_NAME ( The_$CLASS : in CLASS ) return ATTRIBUTE_TYPE;
  19. ]
  20.             
  21. [                       --Set accessor procedure for ATTRIBUTE_NAME
  22.   procedure set_$ATTRIBUTE_NAME ( The_$CLASS : in out CLASS ;
  23.               a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE );
  24. ]       
  25.  
  26.   --OPERATION_EXCEPTION_NAME : exception;  --update as required
  27.  
  28.   private
  29.     [type ASSOCIATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of ASSOCIATION_MANY_CLASS$s.ASSOCIATION_MANY_CLASS; ]
  30.     [type AGGREGATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of AGGREGATION_MANY_CLASS$s.AGGREGATION_MANY_CLASS ; ]
  31.     type CLASS is record
  32.     [ ATTRIBUTE_NAME : ATTRIBUTE_TYPE := ATTRIBUTE_INITIAL_VALUE; ]
  33.     [ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS$s.ASSOCIATION_ONE_CLASS ; ]
  34.     [ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS$s.AGGREGATION_ONE_CLASS ; ]
  35.     [ ASSOCIATION_MANY_NAME : ASSOCIATION_MANY_CLASS$_Array ; ]
  36.     [ AGGREGATION_MANY_NAME : AGGREGATION_MANY_CLASS$_Array ; ]
  37.     end record;
  38.  
  39. end CLASS$s;
  40.  
  41. ----------------------------------------------------------------------------------
  42. package body CLASS$s is
  43.  
  44. procedure initialize ( The_$CLASS : in out CLASS ;
  45.             [ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] ) is
  46. begin
  47.   [The_$CLASS.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME ; ]
  48. end initialize;
  49.  
  50. [---------------------------------------------------------------------------------- 
  51.             --Get accessor function for ATTRIBUTE_NAME
  52. function get_$ATTRIBUTE_NAME ( The_$CLASS : in CLASS ) return ATTRIBUTE_TYPE is
  53. begin
  54.   return The_$CLASS.ATTRIBUTE_NAME;
  55. end get_$ATTRIBUTE_NAME;
  56. ]
  57.  
  58. [---------------------------------------------------------------------------------- 
  59.             --Set accessor procedure for ATTRIBUTE_NAME
  60. procedure set_$ATTRIBUTE_NAME ( The_$CLASS : in out CLASS ;
  61.             a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ) is
  62. begin
  63.   The_$CLASS.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  64. end set_$ATTRIBUTE_NAME; 
  65. ]       
  66.  
  67.  
  68. [---------------------------------------------------------------------------------
  69.  
  70. -- In Input Parameters: PASCAL_OPERATION_PARAMETERS 
  71. -- Out Output Parameter Type: OPERATION_RETURN_TYPE
  72. procedure OPERATION_NAME ADA_OPERATION_PARAMETERS is 
  73. begin
  74.   null;
  75. end OPERATION_NAME;
  76. ]
  77.  
  78. end CLASS$s;
  79.  
  80.  
  81.